home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgl.dir / Internal_10_faceRespons.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  1.5 KB  |  76 lines
  1. property meSprite, frameNum, meChar, meNum, meLastNum, nowNum, memberNumList, meMember, delayCnt
  2. global gmObject, sndObject
  3.  
  4. on beginSprite me
  5.   delayCnt = 0
  6.   meSprite = sprite(me.spriteNum)
  7.   meMember = meSprite.member
  8.   gmObject.reportFaceSprite(meSprite)
  9.   meChar = meSprite.member.name.char[1]
  10.   meNum = meSprite.memberNum
  11.   nowNum = meNum
  12.   repeat with n = meNum to meNum + 40
  13.     if member(n, 1).name.char[1] <> meChar then
  14.       meLastNum = n - 1
  15.       exit repeat
  16.     end if
  17.   end repeat
  18.   memberNumList = []
  19.   makememberNumList(me)
  20. end
  21.  
  22. on makememberNumList me
  23.   repeat with n = 1 to meLastNum - meNum + 1
  24.     memberNumList[n] = n + (meNum - 1)
  25.   end repeat
  26.   memberNumList.deleteAt(1)
  27. end
  28.  
  29. on setBack me
  30.   meSprite.member = meMember
  31. end
  32.  
  33. on setmember me
  34.   sndObject.respondSnd(2, 6)
  35.   if memberNumList = [] then
  36.     makememberNumList(me)
  37.   end if
  38.   v = random(memberNumList.count)
  39.   meSprite.member = member(memberNumList[v], 1)
  40.   memberNumList.deleteAt(v)
  41. end
  42.  
  43. on mouseUp me
  44.   if the frameLabel = "main" then
  45.     setmember(me)
  46.     if delayCnt < 3 then
  47.       delayCnt = delayCnt + 1
  48.     else
  49.       gmObject.reportKlick()
  50.       delayCnt = 0
  51.     end if
  52.     updateStage()
  53.   else
  54.     if the frameLabel = "main2" then
  55.       setmember(me)
  56.       if random(4) = 1 then
  57.         play frame gmObject.kidSprite
  58.       end if
  59.       updateStage()
  60.     end if
  61.   end if
  62.   stopEvent()
  63. end
  64.  
  65. on mouseEnter me
  66.   cursor([500, 501])
  67. end
  68.  
  69. on mouseLeave me
  70.   cursor(0)
  71. end
  72.  
  73. on endSprite me
  74.   cursor(0)
  75. end
  76.